00100	;GEOMETRIC EDITOR COMMAND EXECUTION.
00200	;WING OPERATIONS.
00300		EXTERN MAKE,KILL
00400		EXTERN MKB,MKF,MKE,MKV,MKBFV
00500		EXTERN KLB,KLF,KLE,KLV,WING
00600		EXTERN WING
00700		EXTERN ECW,ECCW,OTHER,OTHER.
00800		EXTERN BODY,FCW,FCCW,VCW,VCCW
00900	
01000	
01100	;1. "V"-COMMAND.  MAKE VERTEX BODY.
01200	SUBR(VBODY)-------------------------------------------------------
01300	BEGIN VBODY;BGB 13 JANUARY 1973.
01400		A←1↔B←2↔C←3
01500	;	CALL(MKBFV)
01600		LAC B,PDLPTR
01700		PUSH B,A
01800		PFACE 0,A↔PUSH B,0
01900		PVT 0,A↔PUSH B,0
02000		DAC B,PDLPTR
02100		POP0J
02200	BEND;1/14/72------------------------------------------------------
     

00100	;2. "E"-COMMAND.
00200	;SUBR(SWIRE)-------------------------------------------------------
00300	;BEGIN SWIRE;BGB 14 JANUARY 1973.
00400	;	PTR←16
00500	;	CDR PTR,PDLPTR↔CAIG PTR,PADPDL↔POP0J	;PADPDL EMPTY.
00600	;;	CALL(LINKED,{-1(PTR)},{(PTR)})		;ILLEGAL ARGS.
00700	;	POP0J↔LAC PTR,PDLPTR
00800	;;	CALL(MKEV,{-1(PTR)},{(PTR)})
00900	;	LAC PTR,PDLPTR↔DAC 1,(PTR)↔POP0J	;REPLACE TOP.
01000	;BEND;1/14/72------------------------------------------------------